home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / grafik / cataloger / picview202 / picviewaddone.lha / Rexx / MakeAsciiDOpus.rexx < prev    next >
OS/2 REXX Batch file  |  1996-05-26  |  3KB  |  111 lines
  1. /*********************************************************/
  2. /* MakeAsciiDOpus.rexx  $VER: 1.1 (9.5.96)  for PicView  */
  3. /* (C) 1996 Maik Solf            solf@madhouse.boerde.de */
  4. /* Im collecting handdrawn pictures, contact me 2 swap   */
  5. /*********************************************************/
  6.  
  7. OPTIONS RESULTS
  8.  
  9. Argumente=ARG(1)
  10.  
  11. PARSE VAR Argumente FullName ShortName Quelle Rest
  12.  
  13. /* open rexxreqtools.library */
  14. IF ~SHOW('L',"rexxreqtools.library") THEN
  15.    IF ~ADDLIB("rexxreqtools.library", 0, -30, 0) THEN
  16.       EXIT 10
  17.  
  18. /* Vars */
  19. Enter='0a'x
  20. DEnter=Enter || Enter
  21.  
  22. /* User-Options */
  23. PicViewPath='Work:Grafik/PicView/PicView'
  24. YourName='Maik Solf'
  25. Titel='Pictures from' YourName ||  Enter || '-----------------------' || DEnter
  26.  
  27. /* Open PicView */
  28. IF ~SHOW('Ports','PICVIEW.1') THEN DO
  29.     ADDRESS COMMAND 'C:Run >NIL:' PicViewPath
  30.     ADDRESS COMMAND 'REXXC:WaitForPort PICVIEW.1'
  31.     IF ~SHOW('Ports','PICVIEW.1') THEN EXIT 10
  32. END
  33.  
  34. ADDRESS 'PICVIEW.1'
  35.  
  36. /* Katalog laden */
  37. openproject FullName
  38.  
  39. /* number of pictures */
  40. getentries
  41. Number=RESULT
  42. IF Number=0 THEN DO
  43.    SAY 'No pictures in catalog:' ShortName
  44.    EXIT 5
  45. END
  46.  
  47. /* make filename */
  48. ShortNameLen=LENGTH(ShortName)-2                 /* without "" */
  49. ShortName=SUBSTR(ShortName,2,ShortNameLen)
  50.  
  51. ShortNameR=REVERSE(ShortName)
  52. LastPoint=ShortNameLen-INDEX(ShortNameR,'.')
  53. Filename=Quelle || SUBSTR(ShortName,1,LastPoint) || '.txt'
  54.  
  55. /* open file */
  56. IF OPEN(Handle,Filename,'W')=0 THEN DO
  57.    SAY 'Couldnt open file:' Filename
  58.    EXIT 20
  59. END
  60.  
  61. /* write titel */
  62. WRITELN(Handle,Titel)
  63.  
  64. DO i=0 TO Number-1
  65. /* get data of picture */
  66.    /* no parse because Space */
  67.    getpicdata i data name
  68.    NA=RESULT
  69.    getpicdata i data path
  70.    PA=RESULT
  71.    getpicdata i data file
  72.    FI=RESULT
  73.    getpicdata i data comment
  74.    CM=RESULT
  75.    getpicdata i data modetext
  76.    MT=RESULT
  77.    /* parse possible */
  78.    getpicdata i data weekday date time width height depth size format modeid
  79.    PARSE VAR RESULT WD DA TI WI HE DP SI FM MI
  80. /* convert to output */
  81.    CALL UP_Format
  82. /* write to ascii */
  83.    WRITELN(Handle,Entry)
  84. END
  85.  
  86. IF Number=1
  87.    THEN Ende=Number 'picture'
  88.    ELSE Ende=Number 'pictures'
  89.  
  90. WRITELN(Handle,Ende)
  91.  
  92. CLOSE(handle)
  93.  
  94. IF Number=1
  95.    THEN Ende=Number 'picture saved as ascii from' ShortName || '.'
  96.    ELSE Ende=Number 'pictures saved as ascii from' ShortName || '.'
  97.  
  98. SAY Ende
  99.  
  100. EXIT 0
  101.  
  102. UP_Format:
  103. /* chance your output */
  104.     Entry=''
  105.     Entry=Entry || 'Name   :' NA || Enter
  106.     Entry=Entry || 'Width  :' WI || Enter
  107.     Entry=Entry || 'Height :' HE || Enter
  108.     Entry=Entry || 'Depth  :' DP || Enter
  109.     Entry=Entry || 'Mode   :' MT || Enter
  110. RETURN
  111.